
 x:byte;
 i:byte;
 dd:dim(3) of byte;

begin
 print;
 x:=0;
 for i:=1 to 3 do
   begin
    dd(x):=06;
    x:=x+1;
   end
 x:=0;
 for i:=1 to 3 do
   begin
    print dd(x);
    x:=x+1;
    print;
   end
end;
